home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 8 / 008.d81 / flash boot (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  46 lines
  1. 5 ifx>0then200
  2. 10 rem    flash boot
  3. 20 rem
  4. 30 print"[147]"chr$(14):poke53281,0:poke53280,5
  5. 40 t$="*** [198][204][193][211][200] ***":gosub1000
  6. 50 t$="written by":gosub1000
  7. 60 t$="[202]eff [202]ohnson":gosub1000
  8. 70 print"[145]";:t$="[210]t. 8, [194]ox 65":gosub1000
  9. 80 print"[145]";:t$="[200]agestown, [205][196]  21740":gosub1000
  10. 90 gosub2000
  11. 100 print"":t$=" [212]his program allows you to [198][204][193][211][200]":gosub1000
  12. 110 t$="data on the text screen.":gosub1000
  13. 120 t$="[212]he program allows up to 128 characters":gosub1000
  14. 130 t$="to be flashing at once.":gosub1000:gosub2000
  15. 140 print"":t$="[201][206][211][212][210][213][195][212][201][207][206][211]":gosub1000
  16. 150 print"[211][217][211] 49152          : activate"
  17. 160 print"[211][217][211] 49152+3,addr   : flash character at"
  18. 162 print"                   : addr.
  19. 164 [153]"(NULL)(NULL)(NULL) 49152+6,addr   : to unflash addr"
  20. 170 [153]"(NULL)(NULL)(NULL) 49152+6,65535  : to unflash all"
  21. 172 [153]"                   : flashing points"
  22. 175 [153]"(NULL)(NULL)(NULL) 49152+9        : to deactivate"
  23. 180 [141]2000
  24. 190 [153]""
  25. 192 [153]"      1.  valxecute asc(NULL)atn(NULL)left$ str$emo"
  26. 194 [153]"      2.  (NULL)eturn to (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL)":[153]:[153]"(NULL)hich ? ";
  27. 196 [151]198,0:[146]198,1:[161]k$:[139]k$[179][177]"1"[175]k$[179][177]"2"[167]196
  28. 198 [153]k$:[153]"       ...... loading ......."
  29. 199 [139]k$[178]"2"[167]63000
  30. 200 [139]x[178]0[167]x[178]1:[147]"flash",8,1
  31. 210 [158]49152:[153]"load";:[129]x[178]0[164]2
  32. 220 [129]y[178]0[164]39:a[178]1024[170]y[170](40[172]x):[151]55296[171]1024[170]a,[187](1)[172]15:[151]a,160:[158]49152[170]3,a
  33. 222 [130]:[130]
  34. 225 [153]:[153]:[153]:[153]:[153]"(NULL)o return to (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL), press return"
  35. 226 [153]"twice.":[153]
  36. 230 [153]:[153]"sys49152+6,65535:sys49152+9:load"[199](34)"payload"[199](34)",8"
  37. 232 [153]"runononononononononon"
  38. 900 [128]
  39. 1000 [143] centering
  40. 1002 t[178][195](t$):t[178]20[171]t[173]2:[153][163]t)t$:[153]:[142]
  41. 2000 [143] wait for key
  42. 2002 [151]783,[194](783)[175]254:[151]781,23:[151]782,14:[158]65520:[153]"<press a key>"
  43. 2004 [151]198,0:[146]198,1:[161]k$:[153]"load":[142]
  44. 63000 [153]"stopload"[199](34)"payload"[199](34)",8":[153]"run"
  45. 63002 [151]631,13:[151]632,13:[151]198,2:[128]
  46.